home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / SHARED.DXR / 04974_TTweak.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  2.1 KB  |  123 lines
  1. property ancestor, fTweakListH, fTweakListV, fTweakGrp, fTweakFrm, fLoop, fAbsolute
  2.  
  3. on birth me, vSprNum, vID
  4.   set ancestor to NewObj("TAnim", vSprNum, vID)
  5.   mITweak(me)
  6.   return me
  7. end
  8.  
  9. on mITweak me
  10.   set fTweakListH to NewObj("TxtDim")
  11.   set fTweakListV to NewObj("TxtDim")
  12.   mStTweakGrp(me, 1)
  13.   mStTweakFrmFirst(me)
  14.   mStAbsolute(me, 1)
  15.   mStLoop(me, 1)
  16. end
  17.  
  18. on mStTweakNumsH me, vTweakNumsHStr
  19.   mStHorizItems(fTweakListH, mGtTweakGrp(me), vTweakNumsHStr)
  20. end
  21.  
  22. on mStTweakNumsV me, vTweakNumsVStr
  23.   mStHorizItems(fTweakListV, mGtTweakGrp(me), vTweakNumsVStr)
  24. end
  25.  
  26. on mGtTweakValH me
  27.   return integer(mGtVal, fTweakListH, mGtTweakFrm(me), mGtTweakGrp(me))
  28. end
  29.  
  30. on mGtTweakValV me
  31.   return integer(mGtVal, fTweakListV, mGtTweakFrm(me), mGtTweakGrp(me))
  32. end
  33.  
  34. on mStTweakGrp me, vGrp
  35.   set fTweakGrp to vGrp
  36. end
  37.  
  38. on mGtTweakGrp me
  39.   return fTweakGrp
  40. end
  41.  
  42. on mStTweakFrm me, vFrm
  43.   if 0 < vFrm <= mGtNumTweakFrm(me) then
  44.     set fTweakFrm to vFrm
  45.   end if
  46. end
  47.  
  48. on mGtTweakFrm me
  49.   return fTweakFrm
  50. end
  51.  
  52. on mGtNumTweakFrm me
  53.   return the number of items in mGtTweakItemsH(me)
  54. end
  55.  
  56. on mStTweakFrmNxt me
  57.   set aNewFrm to mGtTweakFrm(me) + 1
  58.   if mGtLoop(me) = 1 then
  59.     if aNewFrm > mGtNumTweakFrm(me) then
  60.       set aNewFrm to 1
  61.     end if
  62.   end if
  63.   mStTweakFrm(me, aNewFrm)
  64. end
  65.  
  66. on mStTweakFrmPrv me
  67.   set aNewFrm to mGtTweakFrm(me) - 1
  68.   if mGtLoop(me) = 1 then
  69.     if aNewFrm < 1 then
  70.       set aNewFrm to mGtNumTweakFrm(me)
  71.     end if
  72.   end if
  73.   mStTweakFrm(me, aNewFrm)
  74. end
  75.  
  76. on mStTweakFrmFirst me
  77.   mStTweakFrm(me, 1)
  78. end
  79.  
  80. on mStTweakFrmLast me
  81.   mStTweakFrm(me, mGtNumTweakFrm(me))
  82. end
  83.  
  84. on mStTweakFrmRandom me
  85.   mStTweakFrm(me, random(mGtNumTweakFrm(me)))
  86. end
  87.  
  88. on mStLoop me, vLoop
  89.   set fLoop to vLoop
  90. end
  91.  
  92. on mGtLoop me
  93.   return fLoop
  94. end
  95.  
  96. on mStAbsolute me, vAbsolute
  97.   set fAbsolute to vAbsolute
  98. end
  99.  
  100. on mIsAbsolute me
  101.   return fAbsolute
  102. end
  103.  
  104. on mTweakSame me
  105.   if mIsAbsolute(me) then
  106.     mSLH(me, mGtTweakValH(me))
  107.     mSLV(me, mGtTweakValV(me))
  108.   else
  109.     mSLH(me, mGLH(me) + mGtTweakValH(me))
  110.     mSLV(me, mGLV(me) + mGtTweakValV(me))
  111.   end if
  112. end
  113.  
  114. on mTweakNxt me
  115.   mStTweakFrmNxt(me)
  116.   mTweakSame(me)
  117. end
  118.  
  119. on mTweakPrv me
  120.   mStTweakFrmPrv(me)
  121.   mTweakSame(me)
  122. end
  123.